home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / edit / me_cd25.zip / MUTT2.ZIP / MSDOS.MUT < prev    next >
Lisp/Scheme  |  1992-11-09  |  1KB  |  29 lines
  1. ;; MS-DOS and OS/2 stuff that goes in osstuff.mco
  2. ;; John Burnell    6/92    Public Domain
  3.  
  4. (defun MAIN
  5. {
  6.     ;; Set up some soft keys
  7.   (bind-to-key "end-of-line"        "S-F-B")    ;; end key
  8.   (bind-to-key "beginning-of-line"  "S-F-A")    ;; home key
  9.   (bind-to-key "previous-page"        "S-F-I")    ;; page down
  10.   (bind-to-key "next-page"        "S-F-J")    ;; page up
  11.   (bind-to-key "next-word"        "C-S-F-E")    ;; ^right key
  12.   (bind-to-key "previous-word"        "C-S-F-F")    ;; ^left key
  13.   (bind-to-key "next-character"        "S-F-E")    ;; right arrow
  14.   (bind-to-key "previous-character" "S-F-F")    ;; left arrow
  15.   (bind-to-key "previous-line"        "S-F-C")    ;; up arrow
  16.   (bind-to-key "next-line"        "S-F-D")    ;; down arrow
  17.  
  18.   (bind-to-key "yank"            "S-F-G")    ;; insert
  19.   (bind-to-key "cut-region"        "S-F-H")    ;; delete
  20.  
  21.     ;; the following are EDT-like mappings
  22.  
  23.   (bind-to-key "delete-character"   "S-F-+")    ;; grey +
  24.   (bind-to-key "cut-word"        "S-F--")    ;; grey -
  25.  
  26.   (bind-to-key "query-replace"        "F-I")    ;; keypad 9
  27.   (bind-to-key "next-word"        "F-G")    ;; keypad 1
  28. })
  29.